home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Demos / Nosferatu / Greier / NosLoad < prev    next >
Encoding:
Text File  |  2001-07-19  |  2.5 KB  |  144 lines

  1. G4C
  2.  
  3. WinBig -1 -1 166 120 ''
  4. WinType 00000000
  5. Winbackground SOLID 1 0
  6.  
  7. xOnLoad
  8. LoadImage Nosferatu:Greier/Explicit Material ""
  9. GuiOpen #This
  10. GuiWindow #This FRONT
  11.  
  12. Image 0 0 Material
  13. gauge 13 92 140 12 IN RIDGE 3 1 5
  14. Gadid 1
  15.  
  16. xOnQuit
  17. freeimage Material
  18.  
  19.  
  20. xOnOpen
  21. If $..FKeyCommand > 0     ;---- FKey Greier
  22. BreakIt = $..FKeyCommand
  23. CutVar BreakIt CUT CHAR 38 BreakIt2
  24. CLI 'C:Status Command "$BreakIt" >Env:FKNummer'
  25. CLI 'Break Process $..FKNummer'
  26. CLI 'Echo >Env:FKeyCommand "$BreakIt"'
  27. Delete Env:FKNummer
  28. EndIf
  29.  
  30.  
  31. Info Gui #This
  32. Bredde = $$SCREEN.W
  33. If $Bredde > 640
  34. Bredde2 = $($Bredde -640)
  35. CalcVar Bredde3 $Bredde2 / 2
  36. *NosferatuBredde = $Bredde3
  37. Else
  38. *NosferatuBredde = 0
  39. Endif
  40. Update #This 1 10
  41.  
  42.  
  43. CLI 'Nosferatu:Zet/Lha e Nosferatu:Greier/P1m.lha Ram: -q' 
  44. *NosferatuSmall1 = Ram:NosP1m/
  45.  Update #This 1 22
  46.  
  47. CLI 'Nosferatu:Zet/Lha e Nosferatu:Greier/P2m.lha Ram: -q' 
  48. *NosferatuSmall2 = Ram:NosP2m/
  49.  Update #This 1 34
  50.  
  51.  
  52. ;-----
  53. If $$MEM.FAST > 2000000
  54.     IfExists Directory ~Ram:NosP1
  55. CLI 'MakeDir Ram:NosP1'
  56.         Update #This 1 37
  57.     EndIf
  58. CLI 'Copy >nil: Nosferatu:P1 TO Ram:NosP1 ALL'
  59. *NosferatuBig1 = Ram:NosP1/
  60.  Update #This 1 61
  61.     IfExists Directory ~Ram:NosP2
  62. CLI 'MakeDir Ram:NosP2'
  63.         Update #This 1 64
  64.     EndIf
  65. CLI 'Copy >nil: Nosferatu:P2 TO Ram:NosP2 ALL'
  66. *NosferatuBig2 = Ram:NosP2/
  67.  Update #This 1 88
  68. Else
  69.   *NosferatuBig1 = Nosferatu:P1/
  70.      Delay 50
  71.    Update #This 1 63
  72.   *NosferatuBig2 = Nosferatu:P2/
  73.      Delay 50
  74.    Update #This 1 84
  75. EndIf
  76.  
  77.  
  78.  
  79. ;------
  80.  Delay 50
  81.  Update #This 1 94
  82. CLI 'resident Nosferatu:Zet/PPshow pure add'
  83.  Delay 100
  84.  Update #This 1 100
  85.  
  86. RUN 'PPshow >nil: Nosferatu:Greier/BLK2 nomouse time 35'
  87.  Delay 100
  88. RUN 'Nosferatu:Zet/OMP >nil: Nosferatu:Greier/Intro'
  89. CLI 'PPshow >nil: Nosferatu:Greier/RHz Nosferatu:Greier/Title nomouse time 8'
  90. RUN 'PPshow >nil: Nosferatu:Greier/PleWa nomouse time 8'
  91.  
  92. GuiLoad Nosferatu:Greier/Nosferatu
  93. GuiQuit #This
  94.  
  95. TEXTFILE Ram:Plist1
  96. 01.Pictures 1
  97. 02.Breed
  98. 03.Motorhead
  99. 04.Painful Bath
  100. 05.Dragon
  101. 06.Head Problem
  102. 07.Head Problem2
  103. 08.Royal Portrait
  104. 09.Heavy Metal
  105. 10.Heavy Metal 2
  106. 11.Conan
  107. 12.Conan 2
  108. 13.Conan 3
  109. 14.Possessed
  110. 15.Voodoo
  111. 16.Lightning Sword
  112. 17.Eaten Alive
  113. 18.Butchered
  114. 19.GWAR
  115. 20.Hansa Premium
  116. 21.Welcome To Hell
  117. 22.Welcome To Hell 2
  118. ###
  119.  
  120. TEXTFILE Ram:Plist2
  121. 01.Pictures 2
  122. 02.Beast In Love
  123. 03.Demon
  124. 04.Dragons Eye
  125. 05.Heavy Metal 3
  126. 06.Piece By Piece
  127. 07.Head Problem 3
  128. 08.Head Problem 4
  129. 09.Cool Mistress
  130. 10.Amiga Logo 1
  131. 11.Amiga Logo 2
  132. 12.Possessed 2
  133. 13.Notron
  134. 14.Mask
  135. 15.Cat Temple
  136. 16.Strange Woman 1
  137. 17.Strange Woman 2
  138. 18.Strange Woman 3
  139. 19.Strange Woman 4
  140. 20.Hands
  141. 21.Bloodlust
  142. 22.Kino
  143. ###
  144.